﻿Module Module1

    Sub Main()
        Dim num1 As String
        Dim rnd As New Random()
        Dim numrandim As Integer = rnd.Next(5)
        Dim i As Integer
        Console.Title = "Ejercicio if condicional 7"
        
        Console.Write("Introduce un número entre 1-5 a adivinar ")
        num1 = Console.ReadLine()
        Do
            i += 1
            If Byte.Parse(num1) > numrandim And i <> 3 Then
                Console.WriteLine("Has fallado " & num1 & " es mayor")
            ElseIf Byte.Parse(num1) < numrandim And i <> 3 Then
                Console.WriteLine("Has fallado " & num1 & " es menor")
            ElseIf i <> 2 Then
                Console.WriteLine("Has acertado " & num1 & " es igual")
                Exit Do
            Else
                Console.WriteLine("Has fallado el número era " & numrandim)
                Exit Do
            End If
            Console.Write("Introduce un número entre 1-5 a adivinar ")
            num1 = Console.ReadLine()
        Loop While (CByte(num1) <> numrandim Or i <> 3)
        Console.ReadKey()
    End Sub

End Module
